GetViewSettings procedure

  DECLARATION:  GetViewSettings(var ViewPort : ViewPortType);

      PURPOSE:  Returns the current viewport and clipping settings

         UNIT:  Graph

      REMARKS:  ViewPortType is predeclared as follows:

                Type
                   ViewPortType = Record
                                     x1, y1, x2, y2  : Word;
                                     Clip            : Boolean;
                                  End;

                The points (x1,y1) and (x2,y2) are the dimensions of the
                active viewport and are given in absolute screen coordinates.
                The boolean variable, Clip controls whether clipping is
                active or not.

 RESTRICTIONS:  Must first be in graphics mode.